home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
N-New Submissions
/
(n)n3.d64
/
space story
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-25
|
15KB
|
447 lines
1 REM**PERSONALIZED SPACE STORY**
2 REM**RICK ANDING ATLANTA**
3 GOSUB 9000
4 POKE 53280,6:POKE 53281,6:POKE 646,3
5 FOR X=1 TO 1000:NEXT
6 PRINT
8 INPUT "IS THE STORY CHILD MALE OR FEMALE";SX$
10 INPUT "FIRST NAME";NA$
20 INPUT "LAST NAME";NB$
30 INPUT "STREET NUMBER";S
40 INPUT "STREET NAME";SN$
50 INPUT "CITY";CI$
60 INPUT "STATE";ST$
70 INPUT "NUMBER OF BROTHERS";B
75 IF B=0 GOTO 100
80 FOR X=1 TO B
85 INPUT"ONE BROTHER'S FIRST NAME";BN$(X)
90 NEXT X
100 INPUT "NUMBER OF SISTERS";Z
105 IF Z=0 GOTO 125
110 FOR X=1 TO Z
115 INPUT"ONE SISTER'S FIRST NAME";ZN$(X)
120 NEXT X
125 INPUT "NUMBER OF DOG PETS";P
130 IF P=0 GOTO 170
140 FOR X=1 TO P
150 INPUT "ONE PET'S NAME";PN$(X)
160 NEXT X
170 INPUT "#1 FRIEND/PLAYMATE'S WHOLE NAME";FA$
175 INPUT"IS FRIEND #1 MALE OR FEMALE";AG$
180 INPUT "#2 FRIEND/PLAYMATE'S WHOLE NAME";FB$
185 INPUT"IS FRIEND #2 MALE OR FEMALE";BG$
190 INPUT "#3 FRIEND/PLAYMATE'S WHOLE NAME";FC$
195 INPUT"IS FRIEND #3 MALE OR FEMALE";CG$
198 INPUT "STORY CHILD'S MOST LOVED SPORT";SP$
200 INPUT "NAME OF STORY CHILD'S SCHOOL";SC$
205 FOR X=1 TO 2000:NEXT X:PRINT"[147]"
215 PRINT
220 PRINT "CHILD'S GENDER ";SX$
225 PRINT "FIRST NAME ";NA$
230 PRINT "LAST NAME ";NB$
235 PRINT "STREET NUMBER ";S
240 PRINT "STREET NAME ";SN$
245 PRINT "CITY ";CI$
250 PRINT "STATE ";ST$
260 IF B=0 GOTO 280
265 FOR X=1 TO B
270 PRINT "BROTHER'S NAME ";BN$(X)
275 NEXT X
280 IF Z=0 GOTO 300
285 FOR X=1 TO Z
290 PRINT "SISTER'S NAME ";ZN$(X)
295 NEXT X
300 IF P=0 GOTO 340
310 FOR X=1 TO P
320 PRINT "PET'S NAME ";PN$(X)
330 NEXT X
340 PRINT "#1 FRIEND'S NAME ";FA$
345 PRINT " GENDER ";AG$
350 PRINT "#2 FRIEND'S NAME ";FB$
355 PRINT " GENDER ";BG$
360 PRINT "#3 FRIEND'S NAME ";FC$
365 PRINT " GENDER ";CG$
370 PRINT "FAVORITE SPORT ";SP$
375 PRINT "SCHOOL ATTENDED ";SC$
378 PRINT:INPUT"IS INFORMATION CORRECT";A$
380 IF A$="NO" OR A$="N" GOTO 5
390 FOR X=1 TO 1000:NEXT:PRINT
400 IF SX$="MALE" OR SX$="M" THEN G=1
410 IF SX$="FEMALE" OR SX$="F" THEN G=2
412 RF$(1)="SPACEBOY"
414 RF$(2)="SPACEGIRL"
416 HE$(1)="HE"
418 HE$(2)="SHE"
420 HM$(1)="HIM"
422 HM$(2)="HER"
424 HS$(1)="HIS"
426 HS$(2)="HER"
430 IF AG$="MALE" OR SX$="M" THEN H=1
432 IF AG$="FEMALE" OR SX$="F" THEN H=2
434 IF BG$="MALE" OR SX$="M" THEN I=1
436 IF BG$="FEMALE" OR SX$="F" THEN I=2
438 IF CG$="MALE" OR SX$="M" THEN J=1
440 IF CG$="FEMALE" OR SX$="F" THEN J=2
442 AA$(1)=" SIR "
444 AA$(2)=" LADY "
482 PRINT "AT THIS POINT MAKE SURE YOUR PRINTER IS TURNED ON ";
484 PRINT " AND PROPERLY HOOKED UP TO THECOMPUTER
486 [129] X[178]1 [164] 4000:[130]
488 [153]:[153]:[153]:[153]:[153]
490 [153]"PRESS THE SPACE BAR TO BEGIN PRINTING THE STORY"
492 [161] RN$
494 [139] RN$[178]"" [167] [137] 492
496 [139] RN$[179][177][199](32) [167] [137] 492
498 [159]3,4
500 [143]**** STORY LINE****
501 [152]3," A SPACE STORY!"
502 [152]3,
503 [152]3,
505 [152]3,"DID YOU HEAR ABOUT THE FLYING SAUCER THAT LANDED IN ";CI$;
510 [152]3," LAST WEEK....?"
512 [152]3,"WELL, IT LANDED RIGHT ON ";SN$;"!!!"
515 [152]3,
520 [152]3,NA$;" ";NB$;" WAS STANDING IN ";HS$(G);" FRONT YARD ON ";SN$;
525 [139] B[170]Z[178]0 [137] 605
528 [139] B[178]0 [137] 540
530 [139] B[170]Z[177]1 [137] 555
535 [152]3," WITH ";HS$(G);" BROTHER ";BN$(1);
540 [139] Z[178]0 [137] 605
543 [139] B[177]0 [175] Z[177]0 [137] 555
544 [139] Z[177]1 [137] 553
545 [152]3," WITH ";HS$(G);" SISTER ";ZN$(1);
552 [139] Z[178]1 [137] 605
553 [152]3," WITH "HS$(G);" SISTERS ";
554 [137] 590
555 [139] B[177]0 [175] Z[178]O [137] 558
556 [152]3," WITH ";HS$(G);" BROTHERS AND SISTERS ";
557 [137] 560
558 [152]3," WITH HIS BROTHERS ";
560 [129] X[178]1 [164] B[171]1
562 [139] B[178]1 [137] 582
565 [152]3,", "BN$(X);
570 [130] X
580 [152]3,", AND ";BN$(B);
581 [137] 585
582 [152]3,BN$(1);
585 [139] Z[178]0 [137] 605
590 [129] X[178]1 [164] Z[171]1
592 [139] Z[178]1 [137] 603
595 [152]3,", ";ZN$(X);
600 [130] X
601 [139] X[178]0 [167] [137] 605
603 [152]3,", AND ";ZN$(Z);
605 [152]3,", WAITING FOR ";HS$(G);" FRIENDS ";FA$;", ";FB$;", AND ";FC$;
607 [152]3," TO COME OVER."
610 [152]3,"THEY WERE ALL GOING TO THE SCHOOLYARD AT ";SC$;" TO PLAY ";
615 [152]3,SP$;", WHICH WAS ";NA$;"'S FAVORITE GAME."
620 [152]3,
625 [152]3,"WELL, IT WASN'T LONG AFTER EVERYONE FINALLY ARRIVED AT "NA$;"'S ";
630 [152]3,"HOUSE, WHEN THEY HEARD THE STRANGEST HUMMING SOUND COMMING ";
635 [152]3,"FROM OVER THEIR HEADS..";
640 [152]3,"LOOK!, SAID ";FA$;", UP THERE, OVER THE HOUSE!"
645 [152]3,
650 [152]3,NA$;" ";NB$;" LOOKED UP AND SAW THE STRANGEST SIGHT! RIGHT OVER ";
655 [152]3,HS$(G);" HEAD WAS A BIG SILVER FLYING SAUCER WITH BRIGHT BLINKING ";
660 [152]3,"LIGHTS! IT WAS FLYING IN A CIRCLE, AROUND AND AROUND ";HS$(G);
665 [152]3," HOUSE ON ";SN$;"!"
670 [141] 5000
675 [152]3,"THE SPACESHIP STARTING MAKING A BEEPING SOUND, THEN IT STOPPED ";
680 [152]3,"FLYING AROUND ";NA$;"'S HOUSE, AND BEGAN TO GET LOWER AND LOWER ";
685 [152]3,"TO THE GROUND. LOOK!, SAID ";FB$;", IT'S GOING TO LAND IN THE ";
690 [152]3,NB$;"'S FRONT YARD!!"
692 [152]3,
695 [139] P[177]0 [137] 705
700 [152]3,"THE NEIGHBORHOOD DOGS WERE BARKING WILDLY ";
703 [137] 725
705 [139] P[177]1 [137] 720
710 [152]3,PN$(1);" WAS BARKING WILDLY ";
715 [137] 725
720 [152]3,PN$(1);" AND ";PN$(2);" WERE BARKING WILDLY ";
725 [152]3,"AS THE BIG SILVER SPACE SHIP SET DOWN SOFTLY ON THE GRASS. ";FC$;
730 [152]3," SAID, 'SHOULD WE RUN?"
731 [152]3,
732 [152]3,"'NO, SAID ";NA$;", LET'S WAIT AND ";
735 [152]3,"SEE WHAT HAPPENS NEXT!"
740 [152]3,
745 [152]3,"THE DOOR OF THE FLYING SAUCER OPENED, AND A SET OF STEPS CAME ";
750 [152]3,"DOWN TO THE GROUND. OUT OF THE SHIP STEPPED THE ODDEST LOOKING ";
755 [152]3,"LITTLE MAN! HE WAS SHORT AND FAT, WITH BLUE SKIN, AND HAD TWO ";
760 [152]3,"ANTENNAS STICKING OUT OF HIS HEAD! "
765 [141] 6000
770 [152]3,"THE SPACEMAN LOOKED SO JOLLY THAT NO ONE WAS REALLY AFRAID OF ";
775 [152]3,"HIM. HE WALKED DOWN THE STEPS TO THE GROUND, STOPPED, AND SAID:"
780 [152]3,"'HI! MY NAME IS GORFU. I'M FROM THE PLANET LOB-TRON. WHICH ";
785 [152]3,"ONE OF YOU IS ";NA$;" ";NB$;"?"
787 [152]3,
790 [152]3,NA$;" SAID TIMIDLY, 'I AM....WHY?
792 PRINT#3,
795 PRINT#3,"THE SPACEMAN, GORFU SAID 'I HAVE BEEN SENT FROM MY PLANET TO ";
800 PRINT#3,"LEARN ALL ABOUT THE SPORT OF ";SP$;". I UNDERSTAND YOU ARE AN ";
805 PRINT#3,"EXPERT AT PLAYING ";SP$;". ";
810 PRINT#3,"MY PLANET HAS SENT ME TO FIND YOU AND SEE IF YOU WILL TEACH ME TO";
815 PRINT#3," PLAY THE GAME, SO I CAN GO HOME AND TEACH EVERYONE ELSE TO PLAY."
820 PRINT#3,
825 PRINT#3,NA$;" THOUGHT ABOUT IT A MINUTE AND SAID, 'I'LL MAKE A DEAL WITH";
830 PRINT#3," YOU... I'LL TEACH YOU TO PLAY ";SP$;", IF I CAN HAVE A RIDE IN ";
835 PRINT#3,"YOUR FLYING SAUCER."
840 PRINT#3,"GORFU REPLIED, 'WELL, I HAVE PLENTY OF FUEL, AND ENOUGH ROOM ";
845 PRINT#3,"FOR ONE SMALL EARTHLING, SO I GUESS IT WILL BE A FAIR TRADE!"
848 PRINT#3,
850 PRINT#3,NA$;" ";NB$;" CLIMBED THE STAIRS INTO THE SPACESHIP, AND WAS VERY ";
855 PRINT#3,"SUPRISED TO SEE ALL THE MULTICOLORED LIGHTS AND DIALS INSIDE THE";
860 PRINT#3," COCKPIT OF THE SPACESHIP! ";HE$(G);" SAT DOWN IN A SMALL CHAIR ";
865 PRINT#3,"BESIDE THE PILOT'S SEAT, AND GORFU SAT BESIDE ";HM$(G);". THE ";
870 PRINT#3,"SPACEMAN TURNED A FEW OF THE KNOBS AND THE DOOR SHUT. THEN THE ";
875 PRINT#3,"SHIP BEGAN TO HUM AND VIBRATE! "
878 PRINT#3,
880 PRINT#3,NA$;" WAS EXCIDED! HE LOOKED OUT THE WINDOW AS THE BIG SILVER ";
885 PRINT#3,"SHIP SHUTTERED, THEN LIFTED OFF FROM THE ";
890 PRINT#3,"GROUND! "
895 GOSUB 7000
900 PRINT#3,"GORFU GAVE ";NA$;" THE RIDE OF ";HS$(G);" LIFE!"
901 PRINT#3,
902 PRINT#3,"THE SPACESHIP ";
905 PRINT#3,"WENT STRAIGHT UP, THEN DOVE, THEN SWAYED FROM SIDE TO SIDE! IT ";
910 PRINT#3,"WAS A GOOD THING ";NA$;" HAD PUT ON ";HS$(G);" SEATBELT OR ";
915 PRINT#3,HE$(G);" WOULD HAVE LANDED ON ";HS$(G);" HEAD WHEN THE SPACESHIP ";
920 PRINT#3,"TURNED OVER AND STARTED FLYING UPSIDE DOWN!"
925 PRINT#3,
930 PRINT#3,"'THIS IS THE MOST EXCITING THING THAT HAS HAPPENED TO ME IN MY ";
935 PRINT#3,"WHOLE LIFE!, SAID ";NA$;
940 PRINT#3," 'I CANT WAIT TO TELL EVERYONE WAITING FOR ME BACK ON ";SN$;
945 PRINT#3,", ABOUT THIS!
950 [152]3,
955 [152]3,"GORFU SAID, 'YOU CAN ALSO TELL THEM THAT YOU ARE NOW THE EARTHS";
960 [152]3," FIRST ";RF$(G);"!"
962 [152]3,
965 [152]3,"THATS RIGHT, SAID ";NA$;", I GUESS I AM!"
967 [152]3,
970 [152]3,"THE SPACEMAN WAS NOW FLYING OVER DOWNTOWN ";CI$;", AND AS "NA$;
975 [152]3," LOOKED OUT THE WINDOW, ";HE$(G);" COULD SEE ALL THE CARS RIDING";
980 [152]3," DOWN THE STREETS IN DOWNTOWN ";CI$;"."
982 [152]3,
985 [152]3,"WON'T THE PEOPLE BELOW SEE THE FLYING SAUCER UP HERE AND GET ";
990 [152]3,"SCARED?, ASKED ";NA$
992 [152]3,
995 [152]3,"NO, SAID GORFU, I'VE MADE THE SHIP INVISIBLE, SO THEY WON'T ";
1000 [152]3,"SEE US UP HERE!
1005 GOSUB 8000
1010 PRINT#3,"GORFU SAID, 'WELL, I THINK WE SHOULD BE HEADING BACK TO ";SN$;
1015 PRINT#3," NOW, YOUR FRIENDS WILL BE GETTING WORRIED, AND YOU STILL NEED";
1020 PRINT#3," TO TEACH ME HOW TO PLAY ";SP$;"!"
1022 PRINT#3,
1025 PRINT#3,"I GUESS YOU'RE RIGHT, SAID ";NA$;", BUT I SURE HAVE ENJOYED ";
1030 PRINT#3,"THIS RIDE! "
1032 PRINT#3,
1035 PRINT#3,"WHEN THEY GOT BACK TO ";SN$;", ";NA$;" HAD SO MUCH TO TELL ALL ";
1040 PRINT#3,HS$(G);" FRIENDS AND FAMILY ABOUT THE ADVENTURE ";HE$(G);" HAD ";
1045 PRINT#3,"BEEN ON TODAY, BUT FIRST, ";HE$(G);" NEEDED TO KEEP ";HS$(G);
1050 PRINT#3," PROMISE TO GORFU, AND TEACH HIM HOW TO PLAY ";SP$;"."
1052 PRINT#3,
1055 PRINT#3,"THE WHOLE GROUP WENT TO THE PLAYGROUND AT ";SC$;" AND SPENT THE";
1060 PRINT#3," NEXT 4 HOURS TEACHING GORFU HOW TO PLAY ";SP$
1062 PRINT#3,
1065 PRINT#3,"GORFU NEVER WAS VERY GOOD AT THE GAME, BUT HE SAID HE WOULD GET";
1070 PRINT#3," BETTER WHEN HE GOT HOME AND PRACTICED WITH THE OTHER PEOPLE OF";
1075 PRINT#3," LOB-TRON.
1078 [152]3,
1080 [152]3,"HE THANKED ";NA$;", AND EVERY ONE ELSE WHO HAD HELPED HIM LEARN";
1085 [152]3," HOW TO PLAY ";SP$;", AND SAID GOOD-BYE TO HIS NEW FRIENDS ON ";
1090 [152]3,"EARTH. THEN HE CLIMBED BACK IN HIS FLYING SAUCER, CLOSED THE ";
1095 [152]3,"DOOR, AND TOOK OFF AGAIN, BACK TO LOB-TRON."
1100 [152]3,
1105 [152]3,"I SURE WILL MISS HIM, SAID ";NA$"."
1108 [152]3,
1110 [152]3,"ME TOO, SAID ";FA$;", 'WE ALL WILL, BUT TELL US ALL ABOUT YOUR";
1115 [152]3," RIDE IN A FLYING SAUCER, ";NA$;"!"
1120 [152]3,
1125 [152]3,NA$;" ";NB$;" SPENT THE REST OF THE EVENING TELLING HIS FAMILY ";
1130 [152]3,"AND FRIENDS ABOUT THE BIGGEST THRILL OF ";HS$(G);" LIFETIME!"
1132 [152]3,
1135 [152]3,"A RIDE IN A REAL FLYING SAUCER!!!!!
1140 PRINT#3,
1145 PRINT#3,
1147 PRINT#3,
1150 PRINT#3," THE END!"
1160 END
5000 PRINT#3,
5010 PRINT#3,
5015 PRINT#3," [213][178][201] "
5020 PRINT#3," [206][184][184][184][184][184][184][184][205] "
5025 PRINT#3," [205][175][175][175][175][175][175][175][206] "
5030 PRINT#3," [206][194][205] "
5035 PRINT#3,
5037 PRINT#3,
5040 PRINT#3,
5043 PRINT#3,
5045 PRINT#3,
5047 PRINT#3,
5050 PRINT#3,
5055 PRINT#3,
5060 PRINT#3," [206][205] "
5065 PRINT#3," [206] [205] "
5070 PRINT#3," [206] [176][174] [205] "
5075 PRINT#3," [206] [173][189] [205] "
5080 PRINT#3," [206] [205] "
5085 PRINT#3," [206][180] [170][205] "
5090 PRINT#3," [180] [176][174] [176][174] [170] "
5095 PRINT#3," [180] [171][179] [171][179] [170] "
5100 PRINT#3," [180] [173][189] [173][189] [170] "
5110 PRINT#3," [180] [170] "
5115 PRINT#3," [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5120 PRINT#3,
5125 PRINT#3,
5130 RETURN
6000 PRINT#3,
6005 PRINT#3,
6025 PRINT#3," [209] [209] "
6030 PRINT#3," [205] [206] "
6035 PRINT#3," [205] [206] "
6040 PRINT#3," [205] [206] "
6045 PRINT#3," [205] [206] "
6055 PRINT#3," [206][183][183][183][183][205] "
6060 PRINT#3," [206] [205] "
6065 PRINT#3," [206] [205] "
6070 PRINT#3," [206][183][183][183][205] [206][183][183][183][205] "
6075 PRINT#3," [206] [205][206] [205] "
6080 PRINT#3," [206][205][206] [206][183][205] [206][183][205] [205][206][205] "
6085 PRINT#3," [180][178][180] [180][215] [180][170] [215][170] [170][178][170] "
6090 PRINT#3," [180][194][165] [205][175][206][180][170][205][175][206] [170][194][170] "
6095 PRINT#3," [205][206][165] [180][170] [167][205][206] "
6100 PRINT#3," [206] [206] [205] [205] "
6105 PRINT#3," [206] [205][175][175][206] [205] "
6115 PRINT#3," [180] [206] [213][196][201] [213][196][201] [205] [180] "
6120 PRINT#3," [180] [205][185][185][185][185][185][185][206] [180] "
6125 PRINT#3," [180] [205][175][175][175][175][206] [180] "
6130 PRINT#3," [205] [206] "
6135 PRINT#3," [205] [206] "
6140 PRINT#3," [205][185][185][185][185][185][185][185][185][185][185][185][185][185][185][206] "
6145 PRINT#3
6150 PRINT#3,
6155 RETURN
7000 PRINT#3,
7002 PRINT#3,
7004 PRINT#3,
7005 PRINT#3,
7007 PRINT#3,
7010 PRINT#3," [206][183][183][183][183][183][205] "
7015 PRINT#3," [206] [214] [205] "
7020 PRINT#3," [206] [164][164] [206] [205] [205] "
7025 PRINT#3," [206] (..)([209][209] D [205] "
7030 PRINT#3," [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] "
7035 PRINT#3," [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
7040 PRINT#3," [205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"
7045 PRINT#3," [205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206] "
7050 PRINT#3," [206] [194][160][205] "
7055 PRINT#3," [206] [194] [205] "
7060 PRINT#3," [206] [194] [205] "
7070 PRINT#3,
7075 PRINT#3,
7080 PRINT#3,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
7085 PRINT#3,
7090 PRINT#3,
7095 RETURN
8000 PRINT#3,
8010 PRINT#3,
8020 PRINT#3,
8030 PRINT#3," [170] [180] "
8035 PRINT#3," [170] [194] [180] "
8040 PRINT#3," [170] [213][201] [180] "
8045 PRINT#3," [160] [170] [171][179][194] [180] "
8055 PRINT#3," [170] [171][179] [180] "
8060 PRINT#3," [170] [202][203][194] [180] "
8065 PRINT#3," [170] [180] "
8070 PRINT#3," [160] [170] [194] [180] "
8075 PRINT#3," [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] "
8077 PRINT#3," [213][178][195][178][201] [194] [213][178][178][201] "
8078 PRINT#3," [202][177][195][177][203] [202][177][177][203] "
8080 PRINT#3," [195] [195] [195] [195] [195] [195] [195] [195] [215] [195] [195] [195] [195] [195] [195] [195] [195] [195] "
8082 PRINT#3," [213][178][195][178][201] [213][178][195][178][201] "
8083 PRINT#3," [202][177][195][177][203] [202][177][195][177][203] "
8085 PRINT#3," [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] [194] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] "
8090 PRINT#3," [170] [180] "
8095 PRINT#3," [170] [194] [180] "
8100 PRINT#3," [170][213][195][201] [180] "
8105 PRINT#3," [170][171][195][179][194] [180] "
8115 PRINT#3," [170][194][160][194] [180] "
8120 PRINT#3," [170][171][195][179][194] [180] "
8125 PRINT#3," [170][202][195][203] [180] "
8130 PRINT#3," [170] [194] [180] "
8135 PRINT#3," [170] [213][195][201][180] "
8140 PRINT#3," [170] [194][171][195][179][180] "
8145 PRINT#3,
8150 PRINT#3,
8155 PRINT#3,
8160 RETURN
9000 POKE 646,6
9001 POKE 53280,7:POKE 53281,7:PRINT"[147]"
9002 FOR X=1 TO 1000:NEXT
9003 REM* LINE RIGHT *
9005 FOR X=1 TO 39
9010 PRINT"[191]";
9015 FOR Y=1 TO 10:NEXT Y
9020 NEXT
9028 REM* LINE DOWN *
9030 FOR X=1 TO 22
9040 PRINT TAB(40)"[157][157][191]"
9050 FOR Y=1 TO 10:NEXT Y
9060 NEXT X
9068 REM* LINE LEFT *
9070 FOR X=1 TO 39
9080 PRINT"[157][157][191]";
9090 FOR Y=1 TO 10:NEXT Y
9095 NEXT X
9096 PRINT"[157][191][157]";
9098 REM* LINE UP *
9100 FOR X=1 TO 21
9110 PRINT "[145][191][145]"
9120 FOR Y=1 TO 10: NEXT Y
9130 NEXT X
9140 FOR D =1 TO 350:NEXT
9160 PRINT TAB(204)"[191]";
9170 FOR X=1 TO 28
9175 PRINT "[191]";
9180 FOR Y=1 TO 10:NEXT Y
9190 NEXT X
9195 PRINT"[191]"
9200 PRINT TAB(33)"[191]"
9210 PRINT TAB(33)"[191]"
9220 PRINT TAB(33)"[191]"
9230 PRINT TAB(33)"[191]";
9240 FOR X=1 TO 30
9250 PRINT"[157][191][157]";
9255 FOR Y=1 TO 10: NEXT Y
9260 NEXT X
9270 FOR X=1 TO 3
9280 PRINT "[145][191][157]";
9290 FOR Y=1 TO 10:NEXT
9300 NEXT X
9305 FOR X=1 TO 350:NEXT
9310 PRINT TAB(46)" ANDING'S NOODLE PRESENTS"
9315 FOR X=1 TO 1000:NEXT
9320 PRINT TAB(252)" "
9325 DATA "A"," ","S","P","A","C","E"," ","S","T","O","R","Y"
9330 PRINT TAB(12)"*[157]";
9335 FOR J=1 TO 13
9340 FOR X=1 TO 12
9350 PRINT" *[157]";
9360 FOR Y=1 TO 4:NEXT Y
9370 NEXT X
9375 PRINT"[157]* [157]";
9380 FOR X=1 TO 11
9390 PRINT"[157][157]* [157]";
9400 FOR Y=1 TO 5:NEXT Y
9410 NEXT X
9415 READ A$
9416 PRINT"[157][145]";A$;:PRINT"";
9420 NEXT J
9425 FOR Y=1 TO 200:NEXT
9430 PRINT TAB(58)"*":FOR Y=1 TO 200:NEXT
9440 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
9450 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
9460 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
9470 PRINT TAB(18)"*":FOR Y=1 TO 2400:NEXT
9486 PRINT"[147]"
9490 RETURN